home *** CD-ROM | disk | FTP | other *** search
/ Beyond Sanit-E 4 / Beyond Sanit-E 4 (Disk 2 of 2).adf / BS4Install.HD < prev    next >
Text File  |  1995-11-27  |  2KB  |  68 lines
  1. ; ** Beyond Sanit-e Installer. **
  2. ; ** (c) SLADE - PTK 1996. **
  3. ; ** This Installer is full of comment.  I have commented it this much **
  4. ; ** so you could use to as a tutorial to teach yourself.  Have Fun!!. **
  5.     
  6.  
  7. (complete 0)
  8. (set BS-E-dest
  9.     (askdir
  10.         (prompt "Please Select or create a drawer to install Beyond>Sanit-E<FOUR:")
  11.             (help ask-dirhelp
  12.             "\n"
  13.             "This will ask you to give a destination drawer to "
  14.             "which this issue will be installed.\n")
  15.         (default @default-dest)
  16.     )
  17. )
  18.  
  19. (set @default-dest BS-E-dest)
  20.  
  21.  
  22. (complete 30)
  23. (
  24. (working "Installing Beyond>Sanit-E<IV(DISK-1):...")
  25.     (copyfiles
  26.         (prompt "")
  27.         (help @copyfiles-help)
  28.         (source "Beyond>Sanit-E<IV(DISK-1):")
  29.         (dest @default-dest)
  30.         (pattern "#?")
  31.         (infos)
  32.     )
  33. )
  34. (complete 50)
  35. (
  36. (working "Installing Beyond>Sanit-E<IV(DISK-2):...")
  37.     (copyfiles
  38.         (prompt "")
  39.         (help @copyfiles-help)
  40.         (source "Beyond>Sanit-E<IV(DISK-2):")
  41.         (dest @default-dest)
  42.         (pattern "#?")
  43.         (infos)
  44.     )
  45. )
  46.  
  47. (complete 70)
  48.  
  49. (startup "Beyond>Sanit-E<IV:"
  50. (prompt "The following assigns. \n"
  51.      "ASSIGN BEYOND>SANIT-E<IV(DISK-1):\n"
  52.      "ASSIGN BEYOND>SANIT-E<IV(DISK-2): to " BS-E-dest ""
  53.      "\n"
  54.      "will be added to your user-startup")
  55. (help "This adds the needed assigns to your user-startup")
  56. (command "ASSIGN Beyond>Sanit-E<IV(DISK-1): " BS-E-dest "\n")
  57. (command "ASSIGN Beyond>Sanit-E<IV(DISK-2): " BS-E-dest "")
  58. )
  59.  
  60.  
  61.  
  62.  
  63. (complete 100)
  64. (exit)
  65.  
  66. ; ** You must like reading my little messages that I leave down here.
  67. ; ** Or you would`nt have read all four of them.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            
  68.